
(define-structure vm-test-system (export start)
  (define-all-operators)
  (usual-transforms and cond do let let* or quasiquote)
  
  ; These two are needed for the arch.scm, just define a very primitive version
  (begin
    (define bits-per-byte 8)
    (define (expt base power) (if (= 0 power) 1 (* base (expt base (- power 1))))))
  
  (files ((".." ".." rts) defenum)    ; needed for arch.scm
         ((".." ".." vm interp) arch) ; to get the opcode and exception enums
         utilities
         start
         test-call
         test-math
         test-compare
         test-predicate
         test-stob
         test-io
         test-misc
         test-thread
         test-external))